home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / MYUTIL / CONVDEC.M < prev    next >
Encoding:
Text File  |  1989-03-10  |  1.9 KB  |  59 lines
  1. MODULE ConvDec;
  2.  
  3. (* Verschönert '.DEC'-Files, die von DECSYM erzeugt werden. *)
  4.  
  5. FROM Strings IMPORT String, Concat, Split, Delete, PosLen, Space, Length,
  6.                 Pos, Compare, Relation;
  7.  
  8. FROM Directory IMPORT FileAttrSet, DirEntry, DirQuery;
  9.  
  10. FROM Files IMPORT Access, File, Open, Create, Close, EOF, ReplaceMode,
  11.                 GetStateMsg, State;
  12. FROM Text IMPORT EOL;
  13. IMPORT Text;
  14.  
  15. FROM InOut IMPORT ReadString, WriteLn, WriteString;
  16.  
  17.  
  18. VAR df, sf: File; ok: BOOLEAN;
  19.  
  20.  
  21. PROCEDURE copytext;
  22.   
  23.   VAR l: ARRAY [0..79] OF CHAR;  i: INTEGER;
  24.   
  25.   BEGIN
  26.     WHILE ~EOF (sf) DO
  27.       Text.ReadString (sf, l);
  28.       WHILE Pos ('(*', l, 0) >= 0 DO
  29.         i:= Pos ('(*', l, 0);
  30.         Delete (l, i, Pos ('*)', l, 0) + 2 - i, ok)
  31.       END;
  32.       Text.WriteString (df, l);
  33.       Text.WriteLn (df)
  34.     END;
  35.   END copytext;
  36.  
  37.  
  38. VAR name: String;
  39.  
  40. BEGIN
  41.   WriteString ('Input: ');
  42.   ReadString (name);
  43.   Open ( sf, name, readSeqTxt );
  44.   GetStateMsg (State (sf), name);
  45.   WriteString (name);
  46.   WriteLn;
  47.   WriteString ('Output: ');
  48.   ReadString (name);
  49.   Create ( df, name, writeSeqTxt, replaceOld );
  50.   GetStateMsg (State (sf), name);
  51.   WriteString (name);
  52.   WriteLn;
  53.   copytext;
  54.   Close ( df );
  55.   Close ( sf )
  56. END ConvDec.
  58. (* $FFF95470$FFF95470$FFF95470$FFF95470$FFF95470$FFF95470$FFF95470$FFF95470$FFF95470$FFF95470$FFF95470$FFF95470$FFF95470$FFF95470$FFF95470$000004FA$FFF95470$FFF95470$FFF95470$FFF95470$FFF95470$FFF95470$FFF95470$FFF95470$FFF95470$FFF95470$FFF95470$FFF95470$FFF95470$FFF95470$FFF95470$FFF95470$FFF95470$FFF95470$FFF95470$FFF95470$FFF95470$FFF95470$FFF95470$FFF95470$FFF95470$FFF95470Ç$000003D3T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......$000001D0$00000415$00000404$00000415$000003F6$000003D3$0000014B$00000170$000001D0$000003D3$000004C3$FFF71026$000004FA$000002F5$000001D0$000001F2¼ÇÇ*)
  59.